object SelSessionForm: TSelSessionForm Left = 379 Top = 251 BorderIcons = [] BorderStyle = bsDialog Caption = 'Select session' ClientHeight = 277 ClientWidth = 362 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnCreate = FormCreate DesignSize = ( 362 277) PixelsPerInch = 96 TextHeight = 13 object btnNext: TButton Left = 281 Top = 245 Width = 75 Height = 25 Action = aFormState Anchors = [akBottom] Default = True TabOrder = 0 end object gbSessionList: TGroupBox Left = 6 Top = 1 Width = 350 Height = 120 Caption = ' List of existing sessions: ' TabOrder = 2 object lvSessionList: TListView Left = 9 Top = 16 Width = 332 Height = 95 Columns = < item AutoSize = True Caption = 'Session' MaxWidth = 140 MinWidth = 140 end item Alignment = taRightJustify Caption = 'Start' MaxWidth = 75 MinWidth = 75 Width = 75 end item Alignment = taRightJustify Caption = 'Size' MaxWidth = 90 MinWidth = 90 Width = 90 end> ColumnClick = False HideSelection = False ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnMouseUp = lvSessionListMouseUp end end object btnCansel: TButton Left = 187 Top = 245 Width = 75 Height = 25 Anchors = [akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object gb_DiskInfo: TGroupBox Left = 8 Top = 175 Width = 350 Height = 63 Anchors = [akBottom] Caption = ' Disk info: ' TabOrder = 3 object EmptySizePanel: TPanel Left = 181 Top = 14 Width = 160 Height = 20 BevelOuter = bvLowered TabOrder = 0 object EmptySizeInfo: TLabel Left = 1 Top = 1 Width = 158 Height = 18 Align = alClient Alignment = taCenter Caption = ' -- --' Layout = tlCenter end end object DiskSizePanel: TPanel Left = 9 Top = 14 Width = 160 Height = 20 BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 1 object DiskSize: TLabel Left = 1 Top = 1 Width = 158 Height = 18 Align = alClient Alignment = taCenter Caption = ' -- --' Layout = tlCenter end end object MediumTypePanel: TPanel Left = 9 Top = 35 Width = 160 Height = 20 BevelOuter = bvLowered TabOrder = 2 object MediumType: TLabel Left = 1 Top = 1 Width = 158 Height = 18 Align = alClient Alignment = taCenter Caption = ' -- --' Layout = tlCenter end end object UsedSpacePanel: TPanel Left = 181 Top = 35 Width = 160 Height = 20 BevelOuter = bvLowered TabOrder = 3 object UsedSpace: TLabel Left = 1 Top = 1 Width = 158 Height = 18 Align = alClient Alignment = taCenter Caption = ' -- --' Layout = tlCenter end end end object m_gbDrives: TGroupBox Left = 8 Top = 125 Width = 350 Height = 46 Anchors = [akBottom] Caption = ' Drive: ' TabOrder = 4 object cbDrives: TComboBox Left = 8 Top = 16 Width = 333 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnSelect = cbDrivesSelect end end object btnRefresh: TButton Left = 95 Top = 245 Width = 75 Height = 25 Caption = 'Refresh' TabOrder = 5 OnClick = btnRefreshClick end object alStatus: TActionList Left = 8 Top = 244 object aFormState: TAction Caption = 'Import' OnExecute = btnNextClick OnUpdate = aFormStateUpdate end end object MCDBurner: TMCDBurner DeviceBufferSize = 0 DeviceFreeBufferSize = 0 UnderrunProtection = True DoDebug = True ReadSpeed = 0 WriteSpeed = 0 FinalizeDisc = False TestWrite = False ReplaceFile = False PerformOPC = False CacheSize = 4194304 Version = '1.21' WritePostGap = True Left = 40 Top = 244 end object smlFormLangRes: TsmlFormLangRes LangFileName = 'DefLang.ini' IgnoreEmptyString = False AutoCreateMode = True AddBracket = True StringProperties.Strings = ( 'Caption') StringsProperties.Strings = ( 'Tabs' 'Items') IgnoreControls.Strings = ( 'EmptySizePanel' 'MediumTypePanel' 'DiskSizePanel' 'UsedSpacePanel' 'cbDrives' 'EmptySizeInfo' 'DiskSize' 'MediumType' 'UsedSpace' 'btnNext') IgnoreFormCaption = False IncludeListViewItems = False IncludeListViewHead = True IncludeTreeViewItems = False Active = False Left = 24 Top = 32 end object smlMsgLangRes: TsmlMsgLangRes LangFileName = 'DefLang.ini' IgnoreEmptyString = True AutoCreateMode = True AddBracket = True MsgList.Strings = ( 'Str0=ASPI initialisation error' 'Str1=Error' 'Str2=The selected drive is unable to burn CD/DVDs. Please select' + ' another one.' 'Str3=Drive is busy. Wait until it is free or select another driv' + 'e.' 'Str4=Drive is not ready. It is possibly busy or disc is not inse' + 'rted.' 'Str5=Unable to extract sessions information' 'Str6=Free' 'Str7=Full capacity' 'Str8=Used' 'Str9=Medium type' 'Str10=Not enough space to continue session.' 'Str11=Medium in drive is empty' 'Str12=Session') Active = False Left = 56 Top = 32 end end